home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / fastblbl.arc / FASTBACK.PRG < prev   
Encoding:
Text File  |  1986-09-15  |  1.2 KB  |  55 lines
  1. *FASTBACK LABEL GENERATOR! 16:01:13  9/15/1986
  2. SET ESCAPE ON
  3. USE FASTBACK
  4. CLEAR
  5. STORE 0 TO labeln,label
  6. STORE "C:\        " TO directry
  7. STORE "                                   " TO mlocation
  8. STORE "FASTBACK" TO mfastback
  9.  
  10. CLEAR
  11. @ 08,15 SAY "ARE YOU USEING FASTBACK?" ;
  12. GET mfastback
  13. READ
  14. @ 10,15 SAY "WHAT IS THE DRIVE AND DIRECTRY NAME?" ;
  15. GET directry
  16. READ
  17. @ 12,15 SAY "NAME/MEMO?" ;
  18. GET mlocation PICTURE '!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  19. READ
  20. @ 14,15 SAY "HOW MANY LABLES DO YOU WANT TO PRINT?" ;
  21. GET label PICTURE '###'
  22. READ
  23. DO WHILE labeln <= label - 1
  24.      CLEAR
  25.      APPEND BLANK
  26.      @ 1, 1 SAY "RECORD NUMBER"
  27.      ? RECNO ()
  28.      SET CONSOLE off
  29.      labeln = labeln + 1
  30.      REPLACE number WITH labeln
  31.      REPLACE subdir WITH directry
  32.      REPLACE fastback WITH mfastback
  33.      REPLACE location WITH mlocation
  34.      SET CONSOLE ON
  35. ENDDO lablen
  36.  
  37. * LABLE PRINTING MOD....
  38.  
  39. GO TOP
  40. LABEL FORM fastback NEXT 1 SAMPLE TO PRINT
  41. SKIP
  42.   DO WHILE .NOT. EOF()
  43.      SET PRINT ON
  44.      LABEL FORM fastback NEXT 1 TO PRINT
  45.      SET PRINT OFF
  46.      SKIP
  47.   ENDDO WHILE .NOT. EOF()
  48.  
  49. * HOUSE KEEPING
  50. CLEAR
  51. WAIT
  52. DELETE ALL
  53. PACK
  54. CLOSE ALL
  55. EXIT